1 REM PGM NAME--   NOM DE PLUME
2 REM PGM AUTHOR-- DAVE HAMMOND
3 :
4 REM (C)1987 UPTIME MAGAZINE
5 REM (C)1987 SOFTDISK PUBLISHING, INC.
6 :
9 UPTIME=(8*4096)+4
10 POKE 53280,6: POKE53281,6: PRINT"[147]"CHR$(8)CHR$(14)
15 SP$="                                       "
20 CLOSE2:CLOSE15
25 :
30 GOSUB 2000: REM *** PRINT SCREEN ***
35 :
80 GOSUB 1000: REM *** PRINT INSTRUCTIONS ***
125 :
130 GOSUB 9000: REM *** GET A KEYPRESS ***
135 IF K=140 THEN SYS UPTIME
140 IF K<>13 THEN GOTO 130
145 :
150 GOSUB 1500: REM *** GET CURRENT DISK NAME ***
155 IF EN<>0 THEN 500
160 IF N$="[213]P[212]IME [214]1 [206]1" THEN GOSUB 8500: GOTO 130
165 :
170 GOSUB 8000: REM *** CHANGE THIS DISK? ***
175 :
180 GOSUB 9000: REM *** GET A KEYPRESS ***
190 IF K=140 THEN SYS UPTIME
200 IF (K$="N") OR (K$="[206]") THEN CLOSE15:GOTO 80
210 IF (K$<>"Y") AND (K$<>"[217]") THEN 180
215 :
220 PRINT"                                       "
225 PRINT"[145][206]EW DISK NAME:"
230 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][145]"
240 PRINT""
250 PRINT"                                     "
260 PRINT"[197]NTER THE NEW DISK NAME"
270 GOSUB 7000: REM *** GET NEW DISK NAME ***
280 IF F$="" THEN GOTO 80
285 :
290 GOSUB 6000: REM *** WRITE NEW DISK TITLE ***
300 IF EN<>0 THEN 500
305 :
310 PRINT"[196]ISK NAME HAS BEEN REWRITTEN"
320 PRINT"[210]ENAME ANOTHER DISK?"
330 PRINT"[208]RESS [217][159] OR [206][159] TO SELECT   "
340 GOSUB 9000: REM *** GET A KEYPRESS ***
350 IF (K=140) OR (K$="N") OR (K$="[206]") THEN SYS UPTIME
360 IF (K$<>"Y") AND (K$<>"[217]") THEN 340
370 GOTO 80
500 GOSUB 9100: REM *** CLEAR TEXT AREA
505 :
510 PRINT""
520 T=INT((40-LEN(EM$))/2)
530 PRINTSPC(T)""EM$
540 GOSUB 2100
550 GET K$: IF K$=""THEN 550
560 IF K$=CHR$(13) THEN GOTO 80
570 SYS UPTIME
1000 GOSUB 9100: REM *** CLEAR INSTRUCTION AREA ***
1005 PRINT"[210]EMOVE THE [213][208][212][201][205][197][159] DISK FROM THE DRIVE"
1010 PRINT"AND"
1020 PRINT"[201]NSERT THE DISK YOU WISH TO RENAME"
1025 GOSUB 2100: REM *** INCLUDE F8 & <CR> ***
1030 RETURN
1497 :
1498 REM *** GET CURRENT DISK NAME ***
1499 :
1500 OPEN15,8,15,"I0"
1505 :
1520 GOSUB 9900: REM *** CLEAR DISK ERROR CHANNEL ***
1530 IF EN<>0 THEN RETURN
1535 :
1540 OPEN2,8,2,"#0"
1545 PRINT#15,"U1";2;0;18;0: REM *** READ DISK BAM ***
1550 GOSUB 9900: REM *** CLEAR DISK ERROR CHANNEL ***
1560 IF EN<>0 THEN RETURN
1565 :
1570 PRINT#15,"M-R"CHR$(144)CHR$(3)CHR$(16): REM *** RQST TO READ DISK NAME ***
1575 :
1580 N$=""
1590 FOR X=1 TO 16
1600 GET#15,BY$: IF BY$=""THEN BY$=CHR$(0)
1610 IF BY$<>CHR$(160) THEN N$=N$+BY$
1620 NEXT
1625 :
1630 CLOSE 2: CLOSE 15: RETURN
1995 :
1996 REM **************
1997 REM  PRINT SCREEN
1998 REM **************
1999 :
2000 PRINT"[206]OM DE [208]LUME"
2030 PRINT"[159](A.K.A. [193] [196]ISK BY ANY OTHER [206]AME )
2040 [129] X[178]1[164]17: [153]: [130]
2060 [153]"ATNN (null)(null)(null)RIGHT$(null)VALOPEN (null)AGAZINE STR$ISK (null)TILITY"
2070 [153]"(C)1986 BY (null)OFTDISK (null)UBLISHING, RIGHT$NC."
2090 [142]
2095 [143] :
2096 [143] *****************
2097 [143]  PRINT F8 & <CR>
2098 [143] *****************
2099 [143] :
2100 [153]"";
2110 [129] X[178]1[164]18: [153]: [130]
2130 [153]"(null)RESS (null)VAL(null)(null)(null)(null)OPEN TO CONTINUE"
2140 [153]"(null)RESS ASC8OPEN TO EXIT TO (null)(null)(null)RIGHT$(null)VALOPEN"
2150 [142]
5997 :
5998 [143] *** WRITE NEW DISK NAME ***
5999 :
6000 [159] 15,8,15: [159] 2,8,2,"#0"
6005 SP$[178][199](160)
6010 P$[178]SP$[170]SP$[170]SP$[170]SP$[170]SP$[170]SP$[170]SP$[170]SP$[170]SP$[170]SP$[170]SP$[170]SP$[170]SP$[170]SP$[170]SP$[170]SP$
6020 F$[178][200](F$[170]P$,16)
6030 [152]15,"M-W"[199](144)[199](3)[199](16)F$
6040 [152]15,"U2";2;0;18;0
6050 [141] 9900
6060 [139] EN[179][177]0 [167] [142]
6065 [152]15,"I0"
6070 [160]2:[160]15
6080 [142]
6997 :
6998 [143] *** GET NEW DISK NAME ***
6999 :
7000 [153]"*CMD";
7010 T$[178]"":CT[178]0
7020 [159]1,0
7025 :
7030 [161]#1,K$: [139] K$[178]"" [167] 7030
7040 K[178][198](K$)
7050 [139] K[178]140 [167] [160]1: [160]2: [160]15: [158] UPTIME
7060 [139] K[178]13 [167] [137] 7200
7070 [139] K[179][177]20 [167] 7100
7080 [139] CT[179][177]0 [167] [153] " CMDCMD*CMD";: CT[178]CT[171]1: T$[178][200](T$,CT)
7090 [137] 7030
7095 :
7100 [139] (K[178]46) [176] (K[178]32) [167] [137] 7140
7110 [139] (K[177]47) [175] (K[179]58) [167] [137] 7140
7120 [139] (K[177]64) [175] (K[179]91) [167] [137] 7140
7130 [137] 7030
7140 [139] CT[178]16 [167] [137] 7030
7150 [153]K$"*CMD";: T$[178]T$[170]K$: CT[178]CT[170]1
7160 [137] 7030
7200 [153]" OPEN": [139] CT[178]0 [167] T$[178]""
7210 CT[178]0: F$[178]T$: [160]1: [142]
7997 :
7998 [143] *** CURRENT DISK NAME SCREEN ***
7999 :
8000 [141] 9100: [143] *** CLEAR THE INSTRUCTION AREA ***
8010 [153]"LENURRENT DISK'S NAME:";
8020 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(ON"
8030 [153]"ON";N$;"OPEN"
8040 [153][166]2)"RIGHT$S THIS THE DISK YOU WISH TO RENAME?"
8050 [153]"(null)RESS (null)OPEN OR (null)OPEN TO SELECT"
8055 [141] 2140: [143] *** INC. <CR> ***
8060 [142]
8497 :
8498 [143] *** DISK NAME IS UPTIME ***
8499 :
8500 [153]""
8505 :
8510 [153]"                                       ON";
8520 [153]"RIGHT$NSERT ATN(null)(null)(null)LEFT$VAL(null)OPEN DISK TO RENAME"
8530 [142]
8997 :
8998 [143] *** GET A KEYPRESS ***
8999 :
9000 [161] K$: [139] K$[178]"" [167] 9000
9010 K[178][198](K$)
9015 [139] (K[178]13) [176] (K[178]140) [167] [142]
9020 [139] (K$[178]"Y") [176] (K$[178]"(null)") [167] [142]
9030 [139] (K$[178]"N") [176] (K$[178]"(null)") [167] [142]
9050 [137] 9000
9095 :
9096 [143] *****************
9097 [143]  CLEAR TEXT AREA
9098 [143] *****************
9099 :
9100 [153]""
9110 [129] X[178]1 [164] 14
9120 [153]"                                       "
9130 [130]
9140 [142]
9897 :
9898 [143] *** CLEAR DISK ERROR CHANNEL ***
9899 :
9900 [132]15,EN,EM$,ET,ES
9910 [139] EN[179][177]0 [167] [160]2: [160]15
9920 [142]